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UM EODirOR 
MUSICAL (3) 



INSTRUCOES 

MENU 

EXECU C AO DA MELOD IA 
EDICAO 



GRAVACAO E LEITURA 



Complete a listagem do seu editor 
musical e entregue-se ao prazer 
de compor e executar metodias. 
As instrucdes dadas a seguir mostram 
como utilizar cada funcao do programa. 



Apresentamos aqui a ultima parte do 
editor musical. Uma vez adicionada ao 
restante do programa, voce podera se 
dedicar a composi^ao e execu^ao de pe- 
pas musicals. 

O programa foi feito de modo a ob- 
ter o maximo de cada maquina, em ter- 
mos de efeitos $onoros. Como os recur- 
sos das diferentes linhas de micros va- 
rram muito entre si, as ver.sdes sao bem 
distintas, merecendo, cada qual, uma 
explicafao. Em aiguns cases, as instru- 
foes parecerao bem complicadas, Mas, 
seja como for, nao lia melhor maneira 
de aprender a usar o editor do que 
sentar-se diante do micro, carregar o 
programa complete e tentar entender 
urn comando de cada vez. 



O menu do programa do computador 
Spectrum oferece sete opfoes. Selecio- 
ne a optjao 1 , que transforma o leclado 
do micro num piano. 

A disposicao das notas e igual a que 
vimos no anigo da pagina 721.. O do 
mais grave corresponde a tecia Q; o d6 
medio, a tecia I, e o do mais agudo, a 
tecIa B. O usuario deve determinar se ira 
acrescentar notas a melodia anterior, ou 
iniciar uma nova. Como nada foi com- 
posto ainda, escolha 'S' para comegar. 
Defina tambem a dura(;ao de cada no- 
ta, usando < SYMBOL >< SHIFT > 



seguido de um niimero de 1 a 5 (semi- 
colcheia, colcheia, seminima, minima, 
semibreve, respectivamente — quanio 
maior o numero, mads demorada e a no- 
ta). Pode-se estabelecer a duragao de ca- 
da nota antes de digita-la e, lambem. 
corrigi-la apos digitar a melodia comple- 
ta, selecionando a opgao 4, 

O programa emite os sons a medida 
que as teclas sao pressionadas, armaze- 
nando as notas musicais corresponden- 
tes na memoria. Depois, pode-sc execu- 
tar a melodia completa sempre que se 
desejar atraves da opi;:ao 3, Para modi- 
ficar o andamcnto da melodia, usa-se 
um mimero entre 1 e 15 — quanto maior 
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o niimero, mais rapido o andamento. A 
op(;ao 2 possibilila a digita^ao das no- 
tas por meio ds um codigo simples. As 
doze notas possiveis — C (do), C # (do 
sustenido), D (re), ale o B (si) — sao nu- 
meradas de a 1 1 , e a pausa recebe o 
codigo -4. A oitava c!a melodia e es- 
pecificada por um valor compreendido 
entre i e 7, e o niimero que indica a du- 
raijao de cada nota corresponde a sua 
dura<;ao teorica. Assim, uma semicol- 
cheia vale 1; uma colcheia, 2; uma se- 
minima, 4; uma minima, 8 e uma semi- 
breve, 16. Essas durat^oes valem, igual- 
mente, para a pausa. 

O codigo e muito f^cil de usar. Por 
esempio, a nota do, segunda oitava, se- 
micolclieia, tem o codigo 1024; a nota 
ii. quarta oitava, semifareve, e 11416. 
Para pau-sa-s, - 404 e o intervale de uma 
seminima. Nao se esqueija de que cada 
codigo tem dois digitos; assim, uma col- 
cheia vale 02, e nao 2. 

Ap6s digitar algumas notas, pressio- 
ne < RKTLIRN > para vokar ao menu; ' 
selecione a opcao 3 para tocar a melo- 
dia introduzida ate o momento. 

Se voce quiser aiterar, apagar ou 
acrescentar algumas notas, selecione a 
op(;ao 4 do menu. Inicialmente, pressio- 
ne D, para selecionar as notas que .se- 
rao modificadas. Depoi.^, entre o niime- 
ro das notas e lecle E para edita-las. Pa- 
ra mudar uma nota, digite seu niimero, 
< RETURN > e seu codigo. Para insc- 
rir uma nota, apcrte X e entre seu rui- 
mero. Caso queira apagar tudo e reini- 
ciar o trabalho, selecione a op(;ao 5. 

Quando estiver satis fei to com a me- 
lodia, grave-a atraves da opgao 6. 

A optao 7 permite recuperar uma 
miisica da fita ca.sscte. 



Ao executar o programa, um menu 
com nave op(;6es serd exibido na teia, 
Comece com a opcao 3, para tocar mii- 
sica diretamente no teclado. 

As notas estao dispostas em duas fi- 
leiras, como vimos no artigo da p^gina 
721 . O do menor corresponde a tecla 0; 
o do medio, a I, e o do maior, a V. A 
barra de espago indica uma pausa com 
a durat^ao desejada. O computador re- 
giiiirara cada nota que voce tocar, mas 
nao em tempo real — as.sim, nao impor- 
ta que voce demore mais ou menos pa- 
ra tcclar uma nota, Tambem nao have- 
ra problema se algum erro For cometi- 
do; e facil corrlgir as notas depois. 

Se voce quiser mudar uma oitava an- 
tes de executar uma determinada nota, 
rccorra as teclas com setas para cima e 
-,„ para baixo. Para aiterar a duracao da 



nota, pressionc as teclas com setas para 
a esquerda c a direita. A oitava e a du- 
ra<;ao correntes estarao impressas no to- 
po da tela. Enquanto voce toca, as no- 
tas vao sendo exibidas com a durai^ao 
e oitava respectivas. 

Depois de experimentar essa manei- 
ra de emrar com as notas, selecione a 
opijao 4 (as notas que voce tocou pcr- 
manecem na memoria). Ela permite a 
enlrada das notas por um processo que 
em certos casos pode ser bem litil, Pri- 
meiro, digite o nome da nota, de "a" 
ate "f", para as notas naturals; A, C, 
D, F, G, para acidentes (bemois sao co- 
locados como sustciiidos; logo, Bb = 
A# etc.), e "p", para uma pausa. Em 
seguida, etitre a oitava — um niimero 
de 1 a 6 — e a duragao da nota — leira-s 
w, h, q, c, s, correspondentes a semibre- 
ve, minima, seminima, colcheia e semi- 
colcheia. Para uma nota pontuada, sim- 
plesmente adicione um ponto no final, 
Por exemplo: A2e. significa nota A (la 
sustenido), oitava 2, cokheia pontuada; 
c3w significa nota C (do), oitava 3, se- 
mibreve. 

Entre as notas na ordem que quiser 
e ouga a miisica quando desejar, selecio- 
nando a op?ao 7 do menu principal. 

Outras opv'oes do menu sao a mudan- 
fa no tempo de execugao e a mudanga 
geral de oitava (com efeito retroativo) 
— para executa-las, basla que leclcmo.s 
um novo valor. O tempo de execugao 
varia de a 255 e indica a velocidade 
com que as notas sao tocadas. Utili^an- 
do as opijoes Superior e Inferior, voce 
pode subir ou descer a oitava de qual- 
quer grupo de notas. 

Para editar a melodia, selecione a op- 
gao 6. Com ela, voce Hsta as potas e 
identifica as que quer aiterar. E possi- 
vel escolher entre apagar, inserir, aite- 
rar ou etmtinuar. Experimente cada uma 
dessas opgoes. Para apagar notas, en- 
tre o niimero inicial e o mimero dc no- 
las que deseja eiiminar. Para inserir, di- 
gite o niimero da nota que esta antes do 
ponto onde se iniciara a inser^ao e en- 
tre uma nota por vez. Para aiterar uma 
nota, tecle seu niimero e entre o novo 
conteildo. 

Finalmente, quando estiver satisfei- 
to com a meiodia, armazene-a em fita 
com a opcao 2 e recupere-a quando qui- 
ser com a optao I . 



Ao iniciar a execu(;ao do programa, 
um menu com nove op(;6es sera exibi- 
do na tela. Comece com a optao 3 para 
tocar miisica diretamente no teclado. 
Teremos tres oitavas disponiveis. 



As notas estao dispostas no teclado 
em duas fileiras: Q corresponde ao do 
da oitava mais baixa; I, ao do da oitava 
media, e V, ao do da oitava mais alta. 
A nota A # (A ou la susterLido) nao po- 
de ser obtida com a tecla " ", ja que es- 
ta nao gera nenhum codigo ASCII que 
identifique o seu pressionamento. As- 
sim, A# foi atribuida a lecla "1", dei- 
xando uma pequena descontinuidade no 
teclado. A barra de espaco indica uma 
pausa com a dura(;ao especificada. 

O computador registrara a nota que 
voce tocar, mas nao imediatamente, de- 
vido ao tempo necessario para o proces- 
samcnto das instruv'oes. Portanto, nao 
tem nenhuraa importancia que voce de- 
more mais ou menos para teclar uma 
nota. Tambem nao havera problema .se 
algum crro for cometido; sera facil cor- 
rigir as notas mais tarde. 

Caso voce queira mudar a oiiava an- 
tes de executar uma nota, use as teclas 
com setas para cima e para bai.vo. Para 
aiterar a duragao da nota, pressione as 
teclas com setas para a esquerda e a di- 
reita. A oitava mais baixa disponive! no 
teclado estara impressa no topo da te- 
la, bem como a duragao das nota.s, que 
vao sendo exibidas k medida que voce 
as toca. Para obter uma duracao pon- 
tuada, selecione as teclas <INS> e 
<DEL>; para apagar a tiltima nota 
executada, a tecla <CLS>. 

Tendo experimentado essa forma de 
composigao, use a tecla < ENTER > c 
volte ao menu principal, Selecione a op- 
gao 4 (as notas que voce tocou perma- 
necem na memoria), Ela permite a en- 
trada das notas por um proces.so que, 
em certos casos, pode ser muito litii. 
Primeiro, digite o nome da nota, de 
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"a*'aie "f", para as notas naturais; A, 
C.D.F.G, para acidentes (bemois sao 
colocados como siistenidos; logo. Bb = 
A # eic), e "p", para uma pausa.Em 
seguida, entre a oitava — urn nijme- 
ro de 1 a 8 — e a diira<;ao da nota — 
leiras w, h, q. e, s, (, u, corrcsponden- 
tes a semibreve, minima, seminima, col- 
cheia, semicolcheia, f'usaesemifusa. Pa- 
ra uma nota pontuada, adicioae um 
ponto no final . Por exemplo: c8t. sig- 
nifica C (do), oitava 8, fusa ponttia- 
da; A4u significa A (la sustenido). oita- 
va 4, semifusa. 

Entre as notas iia ordem que quiser 
e ou<;a a miisica quando desejar, selecio- 
nando a opcao 7 do menu principal. 

Outras opfoes que temos sao a mu- 
dani;a no tempo de cxecugao das notas 
e a mLidan(;a gcral da oitava. Esta lilti- 
ma tern efeito retroativo, aherando a oi- 
tava de notas na memoria. Para ambas 
as opi;6es, basta tcclar o novo valor, O 
tempo de execin;ao varia de 32 a 255 e 
indica a velocidadc com que as notas sao 
locadas. Com as opcoes Superior e In- 
ferior voce pode subir ou descer a oita- 
va de um grupo de notas. 

Para edilar a melodia, selecione a 
opgao 6. Com ela, voce lista as notas 
e verifica o que deseja alterar, E possi- 
vel escolher entre ^pagar, inserir, alte- 
rar ou continuar. Expcrimente cada 
uma dessas opv'oes. Para apagar algu- 
mas notas, entre o nijmero da primeira 







nota e o ntJmero de notas que deseja eJi- 
minar. Para inserir. digite o niimero da 
nota imediatamente anterior ao ponto 
onde pretende iniciar a insergao e enire 
uma nota de cada. Para alterar uma no- 
ta, tecle scu niimcro e entre o novo 
conteiido. 

Finalmente, quando estiver satisl'ei- 
to com a melodia, armazene-a em fiia 
com a opgao 2 e recupere-a quando qui- 
ser com a opcao 1 . 



4452 INPUT "Entre rom numero da 

nota - " ;NN 
4<l'S') IF (NN<1) OR mi>cX. THEN 
OTO 4000 
4460 PRINT : PB fNT "Rfi-entr ando 

nota ";NN 
44 70 PR TNT : PRINT 
4480 INPtir "Entre mm novd noLa 

- ";N$ 
44Q0 IF N5="" THEN ROTO 4100 
150Q FOR 1-1 TO l.EN CNS)' : TF (N 
$(\K"0'' OR N$(i)>"q") AND {NS( 
J )<>"-") THEN GOTO 4 0" 
4M0 LET N-UAL {r*IS) 
4S20 TF TNT (^/aOOO)>ll THEN C, 
OTO 4OO0 

4530 IF N<0 THEN GOTO Ah<H) 
4.')4n LtT M=TNT (N/iOO) : t.ET D=N 
-■M* tot) 

4'jfjt} LET = M-INT (M/10)*10; IF 
0':. 1 on 0>/ TFiEN GOTO 4000 
4*560 LET M=TNT (M/ 1 ) + !0- I ) *l Z- 
Sb 

4.'i70 LET r(2*NN'n=D: LET t(2*N 
N)-M 

'IbSD ttOTC) 4 Oft 

4i;q0 LET M = INT (N/1 0(1) + l! LET D 
-0- (N-M* 100) 
4600 IF MO-4 THEN GOTO 4000 

4f>in noTO 4fiyo 

4/00 CLS 

A?^^ PHINT "Entr*! com numero da 
ncjtrt ANTES" '"da nova notd a ae 
r iri3Pr idrf . " ' ' " (() para sair)" 

'^r^Q it^iPUT as 

4/35 If :is-n THEN GOTO 4000 

4/40 IV ]£i>ct+l THEN GOTO 4700 

4 74 5 CLS 

'1/50 C.OStJB 2\m 

4 7b'> PftTNT 

4760 TNPUT "Entre con nova Nota 

- " ; NS 
4 765 IF LEN tNS)=t) THEN GOTO 4 
700 
47 70 FOR 1=1 TO LEN (NS): IK (N 




TRANSCRIpAO DE PARTITURAS 

Mem todos conseguem executar 
musica simplesmente sentando-se 
diante do micro e usando o editof mu- 
sical como um processador de textos. 
Embora a opcao fie playback (execucao 
da melodia entrada com o auxflto do 
editor) ajude bastante, nosso programa 
nao permite representar na tela uma 
partitura com os detalhes de uma aplt- 
capao mais profissionaL 

Assim, a solucao e recorrer a parti- 
turas de musicas de f^cil execucao pa- 
ra vJolao, flauta: em drgao eletr6nico ou 
piano, e transcreve-las usando o nos- 
so editor musical, 



S{i)<"0" OR NS(i)>"9") AND [NS( 
I )<>"-') THEN GOTO 4700 
4 7 72 LET N=VAL !N$) 
4774 IF INT (N/U)00)>il THEN G 
OTO 4 700 

4 7 7f> TF N<t) THEN GOTO 4792 
4778 LET tt^TMT (N/JOO): LET D=N 
-«*100 

4 782 LET 0=M-tNt (M/Un*in: IF 
0<l OR 0>7 THEN GOTO 4 700 
4784 LET M=INT (M/10) + (0-1) *1 2- 
.16 

4 7Sfi FOR i=c:t TO is STEP -1: LE 
r t t2*(l. + l) )=t(2*j) : LET t(i»*(i 
fl)-l)-t(2*i-l) : NEXT I 
47ft8 LET tt2*l3-i)=D: LET t^2*^ 
s) =M 

4790 LET ct = rt4-i: GOTO 4000 
479? LET M=INT (N/J0n)+1: LET P 
= 0- (N-M*I0O) 

4 7f;4 IF MO-4 THEN GOTO 4700 
4 796 GOTO 4786 
4800 CLS 

4805 PBIWT "Entre com numero dd 
nota a ger apdgada . " " ' " (0 par 
a aair " ' 
48.10 TNPUT de 

4835 TF dK=0 THEN GOTO 4000 
4840 IF de>ct THEN GOTO 4H00 
4845 FOR i=de TO ct r LET t(2*i) 
=t(2*(]+])): LET tC2*l-i)-t(2*{ 
1 + 1) -1) : NEXT t 
4850 LET ct=ct-l 
4855 GOTO 40OO 
4900 DATA 3,0,-11.-9,0.-6.-4,-2 
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.0,1 

4910 DATA 12,9,3,-8. I U, 0,1 3, 0,1 

5.0 

4920 DATA 0,16,14,2,4,-12,-7,6, 

-5,-1 

4930 DATA 11 . -10 , ? , -3 , 5 

5000 CLS 

5010 tNPlJT "DIGtTE NOME DO ABQU 

IVO ";FS: LET T (waxnotea+l ) =ct : 

SAVE F$ DATA T[) : RETURN 
5000 INPUT "DJGTTE ^fOME DO ARQU 
'lUO ";FS- LOAD F$ DATA T(): LET 

ct. = T(MAXNOTES + l) : RETURN 



□ 



1440 FOR I=ST TO NN 

1450 PRINT|C,USING"ltl ";I: 

1460 A$=NS(I) :B$'LEFTS(AS,1) 

1470 IF B$> = "a''AND Ba< = "g"THEN 

CS-CHRS{ASCCB$)-32J+" "ELSE C$- 

BS-t-"!" 

1480 IF BS-"p" THEN CS-"- " 

1490 PHINTtC, C$; 

1500 IF BS<>"'P"THEN PBINTIC" O 

ITAUAt" ;MIDa !A$,2 , 1) ;ELSE PRINT 

iC,STRING$(ll , 32) ; 

1510 PRINT»C," ";LES(1NSTH(RI3 

,MIDS{A$, 3,1) )) ; 

1520 IF MIDS (AS,4,1) =" . "THEN PR 

INTIC.-." ELSE PRINTfC 

1530 LP-LP+]:IF LP-13AND C=0 Tli 

ENLP=0 :GOSUB940 !CLS 

1540 NLXT;<IOEU8940 

1550 PRlNte448, STRINGS C6J , 32) : : 

PRINT@480. "PRESSIONE QUAI.yilER f 

ECLA/MENU" ; :EXEC JfiOBS : RETURN 

1560 CLS 

1570 PRlNTgS, "MODO TOCAH NOTAE" 

1S80 IF NN-0 THEN RETIJHN 



1590 PRINT: INPUT" INICIO NA NOTA 

{ENTER-1)";ST 
1600 IF ST<=0 THEN ST=1 ELHE IF 

ST>NN THEN ST"NN 
1610 PR INT "TEMPO- " ;TE 
1620 PLAY"y31 ;T"f!VrRS(TE) 
1630 EXEC 46481: FOR I^3T TO UN 
1640 PRrNT@256. "TOCANDO NOTA NIJ 
MERO'M 
1650 AS=N$[1) 

1660 BS=LEFT$ (A$, 1) : IF BS="p"TM 
EN 1690 ELSE IF BS>-"d" AND BS< 
= "g"THEN P$=CHn$ CASC [B$) - 32) +" ; 
" ELSE P$=B$+"I" 

1670 PLAV"0"+MIDS(A3,2,1)+"L"+L 
2S(INSTH(H1S,MIDS(A5,3,1) ) )+MID 
$fAS,4,l)+P$ 
1680 GOTO 1700 

1690 PLAY"P" + L2SCINSTRtRlS.^fIDS 
(A5,3,l) ) ) 
1700 NEXT! 
1710 RETURN 
1720 CLS 

1730 IF NN=0 THEN RETURN 
1740 PRINXeS , "MUDANCA GERAL DE 
OITAVA" 

1750 PRINTe64. "OITAVA SUPERIOR 
OU INFERIOR ( S/I ) " 
1760 POKE 282, 245: INPUT AS 
1770 IF AS-"" THEN RETURN 
1780 IF ASO-S" AND ASO'I'THEN 
1750 

1790 PRINT"INICIO EM (ENTER-TUDO 
) " J ; INPUT ST 

1800 IF ST<=OTHEN ST=1 : EN-KN :G0 
TO1840 
1810 INPUT "FINAL EMtENTEH-FIM 

)";EN 
1820 IF EN-0 OR EN>NN THEN EN=N 
N 
1830 IF STT>EN THEN ST-EN 

1840 FOR I=1T0 NN 



1850 BS'-MIDS(NS(1) .2,1) 
1860 IF A$='*I"THEN CS=CHRS (ASC ( 
B3)-1):IF CS="0"THEN C$-"5- 
1870 IF A$=''S"THEN CS=CHRS CASC ( 
BS)+1):1F C3="6"THEN CS="1" 
1880 MIDS(NS(I) .2.1)=C$ 
1890 NEXT: RETURN 
1900 CLS 

1910 PRINTg4. "CARHEGAR MUSICA D 
A FITA" 

1920 PRINT :PRINT"E5TA OPCAO IRA 
APAGAR QUALQUER MUSI 

CA NA MEMORIA -VOCE QUER C 
ONTINUAR (S/N)"i 
1930 POKE 282, 255: INPUT AS 
1940 IF A3<>"S" THEN RETURN 
1950 PRINT: LINE INPUT"NOMEAHC: " 

;AS 

1960 OPEN "I",i-1,A$ 

1970 INPUTt-l.TS.NS 

1980 NN-VAL{NS) :TE-VALCTS) 

1990 FOR I-l TO NN 

2000 INPUTt-l,NS(I) 

2010 NEXT : CL0SE*-1 : RETURN 

2020 CLS 

2030 IF NN-0 THEN RETURN 

2040 PRINTgS, "SALUAR MUSICA EM 

FITA" 

2050 PRINT: LINE INPUT" NOHEARQ : " 

! AS 

2060 OPEN "0", 1-1, AS 

2O70 PRlNTt-l,STRS(NN) .StHS(TE} 

2080 FOR I-ITO NN 

2090 PRINTt-l,NS(I) 

2100 NEXT :CL0SE#-1: RETURN 



mi 



1610 FOR I=SL TO EL 

1620 AS-N$CI) :BS=LEFT$(AS.l) 



"C:^:^ 
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1950 INPUT AS:IF AS = "'' THEN RET 
URN 

1960 IF A$<>''S" AND ASO'I'THEN 

1940 
1970 LOCATE 4 , 9 : INPUT' INICIO EM 

(ENTER= 1 )"rST 
1980 IF ST<=t) THEN ST = 1:EN=NN 
1990 LOCATE 4 , 10 : INPUT" FINAL E 
M CENTER=F1M ) " ; EN 
2000 IF EN=0 OR EN>NN THEN EN=N 
N 

2010 IF ST>EH THEN ST=EN 
2020 FOR I=ST TO EN 
2030 BS=MID$(NS<I) .2.15 
2040 IF AS=''I" THEN CS = CHR3 (A3C 
1630 IF BS>'="a''AND BS<="<3"THEN 
CS=CHRS<ASC(BS)-32)+" "ELSE C 
S=BS+"t " 

1640 IF B$-"p" THEN C$-"- 
1650 C$=" "+CS 

1660 IF BSO'D'THEN C$ = CS + "OITA 
UA t"+MIDSCAS, 2,1) ELSE C$=CS+3T 
RINGS (9, 32) 

1670 C$ = C$+" "+LE3(I)^iSTRtRlS.«I 
D${A$,3.1) )) 

1680 IF MID$(AS.4,1)=" ."THEN CS 
=CS+"."ELSE CS=CS+" " 
1690 IF C-1 THEN LOCATE 5,LP+5: 
PRINT USINO-HI";!; :PRINT CSELS 
E LPHINT USING"#4#"rIj :LPRINT C 
$ 

1700 IF RTOO THEN RETURN 
1710 LP=LP+l:ir LP=13ANDC=1 THE 
N LP=0 :GOSUB lOlOrCLS 
1720 NEXT:GOSUB 1010 
1730 LOCATE 2 , 18 : PRINT'APEHTE Q 
UALftUER TECLA-MENU PRINCIPAL" 
1740 Q5-INKEY$:IF QS""" THEN 17 
40 

1750 RETURN 

1760 CLSrCOLOR 1.10: LOCATE 8.1: 
PHIHT"MODO -TOCAH N0TA3" 
1770 ST=1:IF NN=0 THEN RETURN 
1760 LOCATE 4 , 5 : INPUT" INICIO NA 

NOTA (ENTER=1) " ;ST 
1790 IF ST<=0 THEN ST=1 ELSE IF 

ST>NN THEN ST=NN 
1800 LOCATE 4 . 7 : PRrNT"TEMPO DE 
EXECUCAD=" ;TE 
1810 P[.A¥"VlST"-t-STRS (TE) 
1820 FOR I=3T TO NN 
1S30 LOCATE 6 , 12 : PHTNT'TOCANDO 
NOTA : " ; I 
1B40 A$=NS(r) 

1850 B$=LEFTS(A$.l) :IF BS-'p'TH 
EN 1880 ELSE IF BS>="a" ANDBS<=" 
g'THEN PS=CHRS (ASC(BS) -32)+" "E 
LSE PS=BS+"I" 

1B60 PLAY"0"+MIDS(AS.2,1)+"L"+L 
2S(INSTRtRiS,MID$(A$,3,l) } ) +P$+ 
MIDStAS,4,l) 
1870 GOTO 1990 

1880 PLAY"R"+L2S(INSTH(Rl$.MlD$ 
(AS,3,1)))+MIDS(AS,4,1) 
1890 NEXT I 
1900 RETURN 

1910 CLS; COLOR I , 3 : ST-1 : EN-NN 
1920 IF NN=D THEN RETURN 
1930 LOCATE 7 , 1 : PBINT''MUDANgA G 
ERAL DE OITAVA" 

1940 LOCATE .6 : PRINT"OITAUA SU 
PERIOB OU INFERIOR (S/l) "i 



{BS}-1):IF C$ = "0'' THEN CS^'l" 
2050 IF ^$="3" THEN CS=CHR3 (ASC 

(B3)+1):1F C$="9" THEN CS="e" 

2060 MID$(N$(I) ,2.1)-CS 

20 70 NEXT: RETURN 

2080 CLS:COLOR 15,6 

2090 LOCATE 5 , 1 : PRINT"CAaHEGAH 

MUSICA DO GRAVADOR" ; 

2100 LOCATEli , 3 :PRINT"ATENCRO! ! 

2110 LOCATE 4,4:PHTNT" ESTA OP 
CAO IRA APAGAR Q 

UALQUER MUSICA NA MEMCiRIA" 
2120 LOCATE 4 , 7 : INPUT"VOCE QUEfi 

CONTINUAR? (S/N) " ; AS 
2130 IF AS<>"S" THEN RETURN 
2i40 LOCATE 4 , iO ; PRINT-aperte L 
OAD no gravador" 

2150 LOCATE 4, 12: LINE tNPUT"NOM 
EAHQ: " J A3 

2160 OPEN "CAS: AS" FOR INPUT AS 
ti 



2170 INPUT H.NN.TE 

2180 FOR 1= 1 TO NN 

2190 INPUT il,N$(I) 

2200 NEXT rCLOSEIl : RETURN 

2210 CLSiCOLOR 15.6 

2220 LOCATE 8 , 1 : PHINT"3ALVAR MU 

SICA EM FITA" 

2230 LOCATE 4 , 5 : PRINT" aper le SA 

VE no gravador" 

2Z40 LOCATE 4, 8: LINE INPUT"NOME 

ARQ : " i A$ 

2250 OPEN "CAS: AS" FOR OUTPUT A 

S«l 

2260 PRINT #1 .NN.TE 

2270 FOR 1= 1 TO NN 

2280 PRINT ll.NSd) 

2290 NEXT: CLOSE |1: RETURN 
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Algumas versoes mais poderosas do 
LOGO perm item a programa9ao de 
sprites. Seguindo as instrucoes deste 
artigo, os usuarios do MSX poderao gerar 
e controlar quarenta figuras diferentes. 



Em artigos anieriores sobre a lingua- 
gem LOGO, vimos como desenhar na 
tela com a tartaruga, urn cursor grat'ico 
que pode ser ativado ou desativado por 
meio de comandos primitives. 

Como voce deve ter noiado, a t'labo- 
rapao de uma figura mais complcxa de- 
mora urn tempo razoavelmeiite longo, 
o que torna impossivel, por exemplo, 
desenvolvermos um videogame com ani- 
macao grafica — tarefa simples em BA- 
SIC ou outra linguagem imperaiiva. Al- 
gumas versoes do LOGO, porcm, per- 
mitem a gera<;ao e utiliza<;ao de spriies. 

Nos artigos das paginas 188 e 808. vi- 
mos como trabalhar com sprites no 
MSX, linica maquitia nacional que pos- 
sui esse recurso implementado em hard- 
ware. O Spectrum, o TRS-Color, o Ap- 
ple e TK-2000 tern comandos cspeciais 
para definir blocos graficos (UDG) e 
usa-los em animai;6es rapidas. Mas es- 
ses micros nao dispoem de sprites "ver- 
dadeiros" — ou seja, nao coniam com 
controle de hardware (pelo Video Dis- 
play Processor) que garanta a movimen- 



ta^^ao dos sprites na tela em diferentes 
pianos, destacando-os on ocultando-os 
conforme os criterios que determinam 
a prioridade de uns sobre os outros. 

Aproveitando os recursos do MSX, 
o HotLOGO, versao lanijada no Brasil 
pela Sharp para computadores dessa li- 
nha, inclui entre suas propriedades a 
programa^ao de sprites verdadeiros. 

Algumas versoes de LOGO para o 
Apple e o TRS-Color tambem fazem 
uso de sprites. No exterior, a linha Com- 
modore 64 tem poderosos instrumentos 
para a programa^ao de sprites multico- 
loridos. Mas, em todas essas maquinas, 
OS sprites nao sao controlados por hard- 
ware, como nos micros da linha MSX, 



SPRITES PRE-PROGRAMADOS 



Existem doistipos de sprites em Hot- 
LOGO; OS pre-programados e os pro- 
gramaveis pelo usuario. Cada um deles 
recebe um niimero inteiro, entre e 59. 

Os sprites pre-programados, numera- 



dos de a 9 e de 36 a 59, sao matrizes 
de 16 X 16 pixeis coniendo figuras que 
o usuario nao pode mudar. O accsso a 
eles e dado pelo comando MUDEFIG, 
seguido do mimero do sprite. 

As figuras de a 9 .sao: 

circulo 5 foguete 

1 cora(;ao 6 tijolo 

2 gato 7 helicoptero 

3 caehorro 8 locomotiva 

4 cammhao 9 vagao 

Os sprites numerados de 36 a 59 re- 
presentam tartarugas em diversos angu- 
los e posigoes. Todos aceitam os mes- 
nios comandos e podem ser movimeii- 
tados simultaneamente na tela. Os spri- 




QUE E m SPRITE 
TARTARUGASX SPRITES 



VERSOES DO LOGO 



COM SPRITES 



SPRITES FALSOS 



EVERDADEIROS 



HOTLOGO 



SPRITES PRE-PROGRAMADOS 

com PROGRAMAR 

UM NOVO SPRITE 



tes I'ixos (0 a 9), porem, nao mudam de 
orienta^ao, como ocorre com as tarta- 
rugas ao enconlrarem um comando PA- 
RADIRKITA ou PARAESQLJERDA. 



SPRITES PfiOGRAMAVEIS 



Os sprites numerados de 10 a 35 po- 
dem ser programados pelo usuario. 

O primitivo iitilizado para desenhar 
um sprite novo na tela e muito simples: 
chama-se EDFIG (edita figura), e deve 
indicar o mimero do sprite a ser criado 
ou modificado. Quando digitamos esse 
comando, a tela I'ica em branco e apa- 
rece um cursor piscando no canto supe- 
rior esqucrdo. Podemos movimenta-lo 
em qualquer direipao, por meio das te- 
clas de controle. Para acender um pixel 
(bit correspondente, na mairiz do spri- 
te), pre&siona-se a tecla de espa?o no 
ponto onde estiver o cursor. Para apa- 
ga-lo, pressiona-se a mesma tecla sobre 
esse ponto. 

Se voce quiser sobrepor uma grade a 
tela «;m branco, a Tim de visualizar me- 
Ihor o padrao do desenho, pressione as 
teclas <CTRL> e <K>. 

Depois de criar ou modificar a figu- 
ra a seu gosto, tecle < ESC > : eia sera 
armazenada na menioria, sob o mime- 
ro indicado no comando EDFIG. Se nao 



quiser guardar a figura que e.sta edi tan- 
do, tecle <CTRL> e <STOP>. 



ANIMACAO GRAFICA 



Na produgao de animapoes graficas 
com sprites, usam-se os coniandos PARA- 
FRENTE. PARATRAS, PARADIREITA 
e PARAESQL'ERl>A para mover a figu- 
ra dc um lado a outro. Por exemplo: 

«c 

MUDEFIG 7 

USENADA 

PARAFRENTE 20 

ESPERE 300 

PARADIREITA 90 

PAAAFRENTE 90 

ESPERE 300 

PAHATRAS 30 

PARADIREITA 90 PARAFRENTE 50 

O helicdptero (sprite pre-programado 
7) parecera ievantar voo, esperar um 
momcnto, voar para a direita, subir 
mais um pouco e, por Cim, aierrissar. 

Para simuiar certas a(;6es — como 
um homem correndo — , podemos usar 
dois ou mais sprites parccidos, mosiran- 
do a figura em diferentes estagios do 
movjmento. O comando MUDEFrC se 
encarregara de altcrna-los, enquanto se 
provoca um deslocamento na teia. 




Como funciona urn sprite? 

A caracterfstica fundamental de um 
sprite e a sua veioctdade. ASi^s, 4 exa- 
tamente esta a ofigem do nome: spri- 
te, em ingles, designa um pequeno 
duende que, segundo a lenda, corre co- 
mo o ventD. 

Outra caracterfstica do sprite ^ a sua 
capacidade de interpenetrapao, ou se- 
ja, se duas figuras estiverem ocupan- 
do a mesma ^rea de video, aquela que 
for de menor prioridade dard a impres- 
sao de estar passando "por lri&" da 
Outra. 

Teoricamente, pode-se reproduzir 
uma "famflia" de sprites atrav^s de 
software, mas eles nao serao suficien- 
temente velozes. Um sprite baseado 
em hardware, no entanto, consegue ter 
velocidade, pois, como 6 o caso dos 
micros da linha f\/lSX, o video dispoe de 
um rapidissimo processador, que cui- 
da de todos os detalhes do funciona- 
mento das figuras, sem onerar o pro- 
cessador central. 




It* 
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DE TEX 




Agora que voce ja sabe como comprimir 
e descomprimir textos, ponha o 
programa para funcionar e observe 
seu desempenho no desenvolvimento 
de urn jogo de aventura. 




Nos artigos das pdginas 1332 e 1404, 
analisamos dlversos algoriimos destina- 
dos a compressao de texios. Nao expli- 
camos, porem, coma utilizar esses pro- 
gramas no contexto de um jogo de aven- 
tura. Como voce deve se lembrar, nos- 
so objetivo inicial era reduzir o espa- 
(po de memoria ocupado por uma aven- 
tura desse tipo, permitindo a progra- 
mav'ao de um jogo mais complexo c 
extenso. 

Neste artigo, examinaremos as lecnl- 
cas de compressao e descompressao de 
textos aplicadas ao desenvolvimento de 
um jogo de aventura. Usaremos o algo- 
ritmo que demonstrou a maior cficien- 
cia de uompressao, com a maxima sim- 
pliuidade de programatjao: a tecnica de 
compressao de dois codigos por byte, 
baseada na freqiJencia dos caracteres no 
texto. Como vimos, esse algoritmo po- 
de ser programado em BASIC sem difi- 
culdades, e e razoavelmente rapido. 



DESENVOLVIMENTO DE AVENTURAS 



Em uma s^rie de artigos de Progra- 
macao de J ogos (piginas 208, 226. 270, 
306 e 394), tratamos das principals lec- 
nicas de desenvolvimento de aventuras 
em BASIC. Com um niimero minimo de 
alteragoes no programa entao forneci- 
do, voce podera empregar as rotinas de 
compressao e descompressao de textos, 
economizando uma quantidade razoa- 
vel de memoria. 

Se voce nao armaxenou o programa 
mencionado, digite-o agora, acompa- 
nhando as listagens dadas nos sucessi- 
vos artigos. Entretanio, cada vez que en- 
contrar uma mensagem tal como; 
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■ 


TIPOS DE MENSAGEM 


■ 


PROGRAMA DE 
DECODIFICACAO 






E TEXTO 




■ 


COMO ADAPTAR SEU 


■ 


DE QUATRO EM 






JOGO DE AVENTURA 


■ 


QUATRO NIBBLES 
PROGRAMA EM ACAO 




■ 


A LISTA-MESTRE 












substitua-a por outra mais curta, ape- 
nas para lerabrar-se do que deve ser de- 
finido ou impresso ali. Por exemplo; 

345 PBINT "TIJOLO PESADO" 


outras mensagens (VOCE PEGOU); 

mensagens de ajuda (VERIFIQUE SE 
ALGUMA PORTA ESTA ABERTA); 
instru<;6es do jogo. 


grama onde elas ocorrem. Agrupe as 
mensagens segundo o seu tipo: primei- 
ro as mensagens de local iza<;ao, depois 
as de identificacao de objetos encontra- 



Procedendo assim, vocS podera tes- 
tar se o programa eompleto de aventu- 
ras esta funcionando bem, sem gastar 
muito tempo digiiando mensagens ex- 
tensas, que depois serao retiradas do 
programa principal. 

Quais sao as mensagens e frases que 
admitem compressao? Em um jogo de 
aventuras, utilizam-ise doze tipos prin- 
cipals de texlo alfanumerico: 

- nomes de lugares (por exemplo: 
HALL DE ENTRADA); 

- mensagens de locaiiza^ao (VOCE ES- 
TA NO HALL DE ENTRADA); 

- verbos (NADAR); 

- nomes de objetos (REVOLVER); 

• mensagens de identifica^ao de objeto 
(VOCE PEGOU UM REVOLVER); 

- mensagens dc advcrtencia (ESTA 
MUITO ESCURO PARA VER AS 
SAIDAS); 

- mensagens de erro (ISTO NAO PODE 
SER ESVAZIADO); 

- conseqiiencias de agoes do jogador ou 
do programa (exemplo: AS BOLI- 
NHAS SE ESPALHARAM PELO 
CHAO); 

- perguntas ao jogador (QUER JOGAR 
NOVA.MENTE?); 

- frases comuns, em conjunto com 



Os jogos de aventuras dificilmente 
contem todos esses tipos de tcxlo. De- 
pois de verificar quais deles eslao pre- 
sentes, voce devera decidir se vale a pe- 
na comprimi-los. Listas de nomes cur- 
tos (objetos e locais, por exemplo) nao 
devem ser comprimidas: o niimero de 
bytes cconomizado possivelmente nao 
compensara os bytes de codigo de pro- 
grama gastos para acessar o lexto com- 
primido. Todos os ouiros tipos de tex- 
lo (sobretudo as instrutpoes) podem e de- 
vem ser comprimidos, desde que tenham 
duas ou mais palavras: isso levara a um 
ganho real de espa^o. 

Para localizar as mensagens que se- 
rao comprimidas, o melhor e tirar uma 
listagem em imprcssora e marcar todos 
OS pontes em que elas ocorrem. Em se- 
guida, faga uma lisia das mensagens, in- 
dicando OS niimeros das linhas do pro- 



^^ 



dos etc. Deixe as instru<;oes para o fim. 
Isso facilitara a reprogramagao do jo- 
go de aventura e tornara menos cansa- 
tiva a "ca(;ada" aos erros cometidos. 



A LISTA-MESTRE 



Tcndo todos esses dados, digite no 
computador um programa em BASIC 
constituido apenas de linhas DATA, 
com as mensagens que serao comprimi- 
das. Cada mensagem deve ficar em uma 
linha DATA separada, 

Preparamos essa listagem para o jo- 
go de aventura publicado em INPUT. 
Ela .serve para todos os micros, e come- 
i;a na linha 5000. Em algumas maqui- 
nas e possivel digitar o texto em letras 
mimisculas e a acenlua(;ao correta, mas 
nao o fai;a. Isso e importante, pois, co- 
mo vimos nos anigos ameriores, empre- 
garemos um codigo reduzido de repre- 
senta<;ao de caracieres, baseado em sua 



V— ,•)! 





imim. 
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t possivel comprimir sons e melodias 
em jogos de aventuras? 

Existem tecnicas bastante ef icientes 
para a compressao de melodias, mas 
OS algoritmos usados sao extremamen- 
te especializados. Uma i6criica muito 
simples pode sef empregada, entretan- 
to, pelos usuiifios dos computadores 
TRS-Color e MSX: ela consiste em 
comprtmir a sequencia de comandos 
usados para programar uma melodia 
como se losse um texto (variavel 
string), e depots descomprimi-la no mo- 
mento de tocar a melodia. 



rrcqiiencia no texio — diferente, ponan- 
to, do ASCII. Como a eficiencia de 
compressao so e obtida se usarmos um 
maximo de 30-35 caracieres nesse c6di- 
go, irabalharemos apenas com as letras 
maiiisculas e poiicos caracteres de pon- 
tua(;ao. 

5000 DATA "VOCE ESTA DO LADO DE 

FORA DE UM GRANDE PBEDIO" 
5010 DATA "VOCE ESTA A BEIRA DE 

UM GRANDE RIO" 
5020 DATA -VOCE ESTA NUMA FLORE 
STA PETRIFICADA" 
5030 DATA "VOCE ESTA NUMA SALA 
EMPOEIHADA" 

5040 DATA "VOCE ESTA NUMA SALA 
ESCURA" 

SOSO DATA 'VOCE ESTA EM UM ATAL 
HO ENLAHEADO" 
5060 DATA "VOCE ESTA NA ENTRADA 

DA CIDADE OCULTA" 
5070 DATA "VOCE ESTA NO HALL DE 

ENTRADA' 
5080 DATA -VOCE ESTA NO PATIO" 
5090 DATA "VOCE ESTA NO JARDIM" 
5100 DATA "VOCE ESTA NO CUARDA- 
LOUCAS" 
5110 DATA "VOCE ESTA NA SALA DO 

TRONO" 
5120 DATA "ESTA MUITO ESCURO PA 
RA VEH AS 3AIDAS" 
5130 DATA "COMO VOCE NAO TEM NA 
DA CUE POSSA 3ER CONFISCADO, EL 



E PBENDE NUMA MASHORHA IMUNDA 

» 

514 DATA "DESCULPE. VOCE NAO P 

ODE SEGUIR NESSA DIBECAO" 

5150 DATA "VOCE NAO PODE LARGAR 

QUE NAO TEM" 
5160 DATA "DESCULPE, NAO POSSO 
A JUDAS AGORA" 

5170 DATA "TIJOLOS SAO MUITO PE 
SADOS, SEU BHACO DEVE ESTAH DOE 
NDO" 

5180 DATA "JA ESTA ACESA" 
5190 DATA "ISTO NAO PODE SER ES 
VAZIADO" 

5200 DATA "AS BOLINHAS SE ESPAL 
HARAM PELO CHAO" 
5210 DATA "NADAR AONDE ?" 
5220 DATA "QUE VEHGONHA, VOCE S 
E AFOGOU 1" 

5230 DATA -VOCE SE HOLHOU TODO" 
5240 DATA "VOCE ACHOU UM REVOLV 
EH" 

5250 DATA "NADA ACONTECE" 
5260 DATA "VOCE NAO PODE PUXAR 
ISTO' 

5270 DATA "VOCE CAIU DENTBO DO 
VASO E FOI EMBORA COM A DESCARG 
A I" 

5260 DATA "PARABENS ! VOCE COMP 
LETOU A TAREFA ! ' 
5290 DATA "FIM DO PROGHAMA DE A 
VENTURAS" 
5300 DATA "QUEH JOGAR NOVAHENTE 

(S/N) ?" 
53 10 DATA 'HA UM SACO DE BOLAS 
DE OUDE AQUI' 

5320 DATA "TEM UM TIJOLO NO CHA 
0" 

5 3 30 DATA "HA UMA COBRENTE PEND 
URADA SOBBE TRONO" 
5 340 DATA 'TEM UM REVOLVER NO C 
HAO" 
5 350 DATA "UM OLHO CRAVE JADO DE 

BHILHANTES EGTA NO CHAO" 
5360 DATA "VOCE ESTA DIANTE DE 
UMA LAMPADA" 

5370 DATA "DE REPENTE SURGE UM 
COLETOH DE IMPOSTOS" 
5380 DATA "EU NAO SEX COMO" 
5 390 DATA "VOCE PEGOU" 
540 DATA "NAO ESTA AQUI" 
5405 DATA "PHESSIONE QUALQUER T 
ECLA PARA CONTINUAH. . ." 
5410 DATA "INSTRUCOES- 
54 2 DATA 'DEVIDO A UM COLAPSO 
FINANCEIRO, VOCE TEVE QUE DEIXA 
R PAIS. SEUS PROBLEMAE VAO TE 
RMINAR QUANDO VOCE ENCONTRAR 
LEGENDARIO OLHO CRAVE JADO DE BR 
ILHANTES DE UM TOTEM INCA . ' 
5430 DATA "DEPOIS DE THAZE-LO, 
VOCE TERA aUE ENCONTRAR A SAIDA 
CUIDADO COM O COLETOR DE IMPO 
STOS !" 
5440 DATA "*" 



Nesse programa, foram codificados 
estes tipos de texto (com suas linhas): 

5000 a 5110: mensagens de localiza(;ao; 

5120 a 5260: mensagens de advertencia e 

erro; 

5270 a 5370; conseqiiencias de ac^oes; 

5380 a 5405: frases comuns e comandos; 

5410 a 5440: instrugSes do jogo. 

Observe que sri excluimos as listas de 
objeios, verbos e locals. As linhas com 
instrugoes sao as mais iongas (cuidado 
para nao uMrapassar 255 caracteres), 
pois hso facilita seu posterior uso. 

Depois de digitar o programa, arma- 
zene-o em fiia ou disco. 



CODIFICACAO 



A tecnica de compressao estatistica 
utiliza um codigo baseado na lista dos 
caracteres mais freqiientes no texto. Ca- 
da codigo ocupa uni nibble (ou seja, 
quatro bits), e dois nibbles sao compri- 
midos em um byte, Os quinze caracte- 
res mais comuns lem codigos de um nib- 
ble (um numero de 1 a 15). Os quinze 
caracteres seguinies, na ordem de fre- 
qijencia, tern codigos de dois nibbles 
(um 0, seguido do codigo de 1 a 15); os 
proximos quinze tern codigos de ires 
nibbles (doLs 0, seguidos de um codigo 
de 1 a 15) e assim per diante. Em geral, 
OS quinze caracteres mais freqiientes 
correspondem a 80% ou mais de todo 
o texto, e e por isso que se obtem uma 
compressao em torno dos 50%. 

Se usarmos uma lista dos caracteres 
mais frequenie.s em textos em portugues, 
conseguiremos uma boa eficiencia de 
compressao, mas nao a ideal. Para al- 
cangar o nivel maximo de eficiencia, de- 
vemos usar a ordenagao de caracteres 
encontrada no proprio texto. Sc voce 
quiscr determina-la, siga estas etapas; 

- carregue no computador as linhas DA- 
TA com todas as mensagens; 

- acrescente as linhas do programa de 
contagem de letras fornecido no pri- 
meiro artigo da serie (pagina 1332); 

- rode o programa e anotc o resuliado. 

Para poupar trabalho ao leitor, pre- 
paramos a lista de Treqiiencia de carac- 
teres no texto da aventura de INPUT 
(artigo da pagina 208 e seguintes). 



>.< /><*>: 
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III) 



branco 


248 


H 


17 


A 


176 


G 


15 


E 


173 


Q 


11 





163 


B 


10 


s 


83 


F 


9 


R 


79 


J 


8 


D 


73 


* 


7 


C 


68 


, 


6 


N 


67 


! 


5 


T 


64 


- 


2 


U 


57 


■> 


2 


I 


47 


X 


2 


M 


47 


Z 


2 


V 


42 


( 


1 


L 


38 


) 


1 


P 


33 


/ 


1 



O primeiro conjunto de quinze carac- 
teres (KS{1)) e formado por: branco, 
A.E.O,S,R,D,C.N,T,U,I,M,V e L. Os 
demais caracteres fazem parte, portan- 
10, dos conjuiiios seguintes. 

De posse dessa lista, podemos escre- 
ver urn pequeno programa para testar 
se a compressao e a descompressao es- 
tao funcionando com os textos dc cxem- 
plo. Carregue novamente na tnemoria 
somente as linhas DATA anteriores, e 
adicione este programa; 

EiEia][^^Si 

10 DIM F$(100) .KSC3) 

20 KSd)-" AEOSHDCNTUIMVL" :KS<2 

)-'PHGQBFJ, . i-?XZC:KS(J)-"3/" 

180 PRINT "CODIFICANDO. . . ' 

19(1 I-0:K=1 

200 READ LS;IF LS-"*" THEN GOTO 

230 
210 GOSUB 710:1-1+1 :FS(I)-X$ 
215 PRINT I:LS 
220 GOTO 200 
230 NL-I 

240 PRINT : INPUT 'NUMEHO DA MENS 
AGEM " r I 

242 IF I-O THEN GOTO 300 
245 IF Kl OH I>NL THEN PaiNT ' 
*** NAO EXISTE":GOTO 240 
250 L$-F$(I) iGOSUB 870 
290 GOTO 240 
300 END 

Para os computadores das linhas 
TRS-80 e TRS-Color, adicione a linha; 

5 CLEAR 2000 



10 DIM f$(100) .k3C3.15) 

20 LET kS(l)-" AEOSRDCNTUIMUL' 



LET 


kS{2)-"PHG<JBFJ. .!-?XZ(' 


:LET 


kS<3>=-)/" 




180 


PRINT -CODIFICANDO. . ." 




190 


LET 1-0: LET k-1 




200 


READ L5:IF L5="«- THEN 


GOTO 


230 




210 


GOSUB 710: LET l-l+l;LEl 


fS( 


i)-xS 




215 


PRINT i;LS 




220 


GOTO 200 




230 


LET nL'I 




240 


PRINT: INPUT "NUMEaO DA 


MENS 


AGEM ";i 




242 


IF i-0 THEN GOTO 300 




245 


IF i<l OH i>nL THEN PRINT " 


*** 


NAO EXISTE":GOTO 240 




250 


LET LS-f${i) :GOSUB 870 




290 


GOTO 240 




300 


STOP 





As sub-roiinas que comepam nas li- 
nhas 710 (codifica^rao) e 870 (decodifi- 
ca<;ao) podem ser copiadas integralmen- 
te do programa hstado no primeiro ar- 
tigo, para os computadores respectivos. 

A linha 20 do programa define os tres 
conjuntos de codigos de caracteres. O 
latpo formado pelas linhas 1-80 a 220 
comprimc o tcxto, !endo-o lipha por li- 
nha em DATA e colocando o resultado 
no conjunto F$ (uma mensagem por li- 
nha). A sub-rotina de codificai;ao e cha- 
mada em 210. 

Fjnalmente. as linhas 240 a 290 soli- 
citam ao usuario o niimero da mensa- 
gem que deseja imprimir. Digite 0, se 
quiser interromper o programa. 



ARMAZENAGEM DO RESULTADO 



Vamos agora desenvolver dois pro- 
gramas separadamente. O primeiro fun- 
ciona como o programa anterior, servin- 
do para comprimir todas as mensagens 
e instrufoes. O resultado, gravado em 
fita ou disco, em um arquivo seqCiencial, 
sera depois carregado pelo programa de 
jogo propriamente dito. Assim, a reti- 
na que executa a compressao nao preci- 
sa ser inclui'da no programa do jogo. 
Neste se introduzera apenas as rotinas 
responsaveis pelo carregamcnto, des- 
compressao e impressao. 

O segundo programa comp6e-se de 
duas rotinas que podem ser acrescenta- 
das ao jogo de aventura. Uma delas le 
o arquivo seqiiencial com o texto com- 




ACENTUANDO TEXTOS 
COMPRIMIDOS 

Para os perfeccionistas da progra- 
ma^ao, & frustrante nao poder usar ca- 
racteres acentuados em um texto que 
serS comprjmido pelo algoritmo esta- 
tistico discutido neste artigo. Mas, em 
geral, a lalta de acentos nao dificulta 
a leitura do texto. 

Entre as poucas excepoes destaca- 
se a palavra s, que, sem acento. pode 
impedtr a compreensao do texto. Para 
evitar esse problema sem aumentar o 
numero de caracteres do conjunto uti- 
lizado, recorra ao ap6strofo: coloque- 
o logo apOs a letra que deve ter acen- 
to agudo, sem deixar espapo — o re- 
sultado ser^ satisfat6rio. 



primido; a outra efetua a descompres- 
sao quando solicitado. Explicarernos 
mais adiante como usa-las. 

No programa-exemplo, o texto com- 
primido foi armazenado em um conjun- 
to FS. Portanto, ba.staria escrever uma 
sub-rotina de gravagao desse conjunto 
(com texto comprimido) e, depois, uma 
sub-rotina para ie-io, de volta a memo- 
ria, no programa de jogo. 

Parece ludo muito simples, mas ha 
um senao: trabalhando com conjuntos 
alfanum^ricos, como o FS, no progra- 
ma que utilizara o texto comprimido, 
ocuparemos um espago de memoria, 
que ultrapassara, em tamanho, o exigi- 
do pelo texto original, descomprlmido. 

Devido ao modo como o BASIC tra- 
ta cadeias de caracteres (siring), e difi- 
cil evitar esse problema. Usaremos, as- 
sim, um conjunto numerico JWq para 
armazenar os bytes comprimidos. Os 
dois bytes gerados pela compressao de 
cada quatro nibbles serao armazenados 
em um conjunto de T%, pois uma va- 
riavel inteira {em todos os computado- 
res, cxccto Spectrum) ocupa dois 
bytes, e pode armazenar um mimero en- 
tre - 32768 e 32767. O tamanho de T^o 
sera igual ao numero de caracteres com- 
primidos (no exemplo anterior, 447 b\les). 

Para localizar o inicio de cada men- 
sagem nessa seqiiencia continua de co- 
digos, temos que criar um segundo con- 
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junto A%, que contera os apontadores, 
ou indices de T%, O comprimento de 
A% sera igual ao niimero de mensagens 
mais 1 (no nosso exemplo, 46). 

Se dimensionamos T% e A% em sen 
limite, obteremos o maximo de econo- 
mia de espapo de memoria. 

A rotina de codificacao e a segutnte 
(o programa de teste vem depois): 



DQ'^ 



700 REM - ROTINA DE CODIFICACAO 

710 N-0:LN-0 

7 20 FOR J-1 TO LEN(L$) 

730 C$-MIDSfL$.J.l) 

740 P-INSTR{KS(K) .C$) 

750 N-N+i:CttN)-PrLN-N 

755 IF N<4 THEN GOTO 775 



760 Tt(NC)-CCia) OH (16»Ct(2) 

))4-256«CCt (3) OH (I6«C»(4))J- 

32768 

765 NC-NC+1 :N-0 

775 IF P-0 THEN K-K+l;GOTO 740 

776 K-1 
790 NEXT J 

785 IF LN-4 THEN RETURN 
790 FOB J-LN+1 TO 4:Ci(J)«l 
792 NEXT J 

795 Tt(NC)-(CI(l) OR (16»CI C2) 
))+256*CCtC3) OR {16«Ct CI)))- 
32768 

796 NC-NC+1: RETURN 



mm 



Para executar a rotina nos micros 
compati'veis com o Apple, acrescente: 



740 FOR P=l TO 15: IF C$=Mir>S (KS 
(KJ .P.l) THEN GOTO 750 
745 NEXT P: P-0 

A sub-rotina e igual a apreseniada no 
anigo anterior, com uma diferen^a: os 
nibbles sao armazenados de quatro em 
quatro, no conjunto C7o, e comprimi- 
dos pelas linhas 760 e 795. O valor 32768 
e diminuido do byie assim comprimi- 
do, para que seu conteudo fique entre 
- 32768 e 32767. 

Segue-se o programa principal: 

10 DIM KS(3) ,Ttt450} .At(46) 

15 DIM Nl{2> .Ct(4) 

20 KStl)-- AEOSRDCNTUIMUL" :KSC2 

2)-"PHGQBFJ. . 1-?X2(":KS<3)--)/" 

180 PRINT "CODIFICAWDO. . .- 

190 I-0;K-1:NC-1 

200 READ LS:1F LS*'«" THEN GOTO 

230 
205 r-I+l:AttI)-NC 
210 GOSUB 710 

PRINT IsAlCI) as 

GOTO 200 

NL-l:At tI+l)-NC 

INPUT "GRAVAfi (S/N) ' ; RS 

IF R$-"S" THEN GOSUB 400 

END 



215 

220 
230 
300 
310 
320 



Para os computadores das linhas 







^r. 



^m 



^i 



o 



i^L. 
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TRS-80 e TRS-Color, acrescente a linha: 
5 CLEAR 2000 



A sub-rotina para o armazenamento 
em arquivo seqiiencia! comega na linlia 
400, e grava os conjuntos T (com os c6- r-^~, i—r-i 
digos comprimidos) e A (aponiadores): [mJ | (j) | 



440 FOR I-l TO KL+l:PRrNTH,At 

(1) :NEXT I 

450 FOR 1-1 TO NC:PRINT|l,Tt (I 

) :NEXT r 

460 CLOSEtl: RETURN 



Q 

400 BEH - ROTINA DE GaAVACAO 
410 INPUT "NOME DO ARQUIVO" ;NS 
420 OPEN "0''.|-1.NS 
430 PSINTI-1 ,NL,NC 
440 FOR 1=1 TO NL+l:PRINTf-l,A* 
(I) :NEXT I 

450 FOR 1=1 TO NC:PHINT|-1.T*(I 
) :NEXT I 
460 CL0SE|-1:BETURN 



a 



400 REM - ROTINA DE GRAVACAO 

410 INPUT -GRAVADOR PRONTO ":NS 

430 PRINTf-l .NL.NC 

440 FOR I-l TO NL+1 :PRINTt-l , A* 

(I) :NEXT I 

450 FOR 1=1 TO NC:PR1NT|-1.T* [I 

) :NEXT I 

460 RETURN 



m 



400 REM - ROTINA DE GRAVACAO 
410 INPUT "NOME DO ARQUIVO" ;NS 
420 OPEN "CAS:'+NS FOR OUTPUT 
AS II 
430 PRINTI1.nl. NO 



400 REM - ROTINA DE GRAVACAO 
410 N* (1)=NL:NU2)=NC 
420 INPUT "GRAVADOH PRONTO " ; N$ 
430 STORE NI:STORE AI:STORE Tt 
460 RETURN 

Para executar o programa completo 
de compressao, acrescente ao final as It- 
nhas DATA. O compuiador executara 
toda a larefa automaticamente. A me- 
dida que codiTica as linhas, o programa 
as exibe na [ela, perguntando se o usua- 
rio deseja gravar o resultado. Se a res- 
posta for S, os conjuntos A e T serao 
arniazcnados para uso posterior peia ro- 
lina de decodificai^ao. 



No Spectrum nao ha tratamemo se- 
parado para arquivos sequenciais em fi- 
ta, a nao ser que se disponha de um Mi- 
crodrive (nao existente no Brasil). Por 
isso, o programa para essa maquina 
apresenta uma abordagem difcrentedos 
demais micros. 



Inicialmente, carregue o jogo de 
aventura complete e acrescente as linhas 
abaixo (renumere-as para compatibilizar 
com o programa do jogo, se isto se fi- 
zer necessiirio): 

10 DIM kS(3,15) .t (450) ,a[46) 
15 DIM cC4) 

20 LET kS(ll=" AEOSRDCNTUIMVL" : 
LET (tSC2)="PHGQBFJ, . ! -?XZ(" :LET 

kS<3}-")/" 
190 LET i-0:LET K=1:LET nc=l 
200 PRINT "ENTRE A MENSAGEM ";: 
LINE INPUT LS:IF LS-"*' THEN GO 
TO 230 

205 LET i-i+l:LET a ( i ) -nc 
210 GOStJB 710 
215 PRINT 1 ;a (1) ;L$ 
220 GOTO 200 

230 LET nl-i:LET a(i+l)-nc 
240 STOP 

O programa principal pediraao usua- 
rio para entrar as mensagens pelo tecla- 
do, uma de cada vez. Quando chegar a 
ultima, responda com um asterisco, pa- 
ra assinalar o tim. 

Usaremos um conjunto numerico T 
para armazenar os bytes comprimidos. 
Os dois bytes gerados pela compressao 
de cada quatro nibbles serao armazena- 
dos em um elemenio de T. O tamanho 
desse conjumo sera igual ao niimero de 
caracteres comprimidos (no nosso exem- 
plo, 447 bytes). Para localizar o Jnicio 
dc cada mensagem nessa seqiiencia con- 
tinua de c6digos, temos que criar um se- 
gundo conjunto, A, que contera os 
apont adores, ou indices de T. O com- 
primento de A sera igual ao mjmero de 
mensagens mais I (no exemplo. 46). 

Se dimensionarmos T e A no limite, 
obteremos o maximo de economia de 
memoria. Acrescente a roiina de codi- 
ficagao: 

700 REM - ROTINA DE CODIFICACAO 
710 LET n-0:LET Ln=0 
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720 FOR j-1 TO LE^f LS 

730 LET cS-L$(j) 

740 FOR p-1 TO 15: IF c3=kS(k.p) 

THEN GOTO 750 
745 NEXT p:LET p=0 
750 LET n-n+l:LET c(n)-P:LET L 
n=n 

755 IF n<4 THEN GOTO 775 
760 LET t(nc)-(c(l} OB {16*c 
t2}))+256*(c(3) OB (16*c(4))) 
-32768 
76S LET nc-nc+l:LET n-0 

775 IF p=0 THEN LET k-k+l:GOTO 
740 

776 LET k-1 
780 NEXT J 

785 IF Ln-4 THEN RETURN 

790 FOR i=Ln+l TO 4 : c ( j) -1 :NEX 



T J 

795 LET t(nc)-(cCl) OR (16*c 
(2))) <-256*(c(3) OR C16*c(4)n 
-32 768 

796 LET nc-nc+l : RETURN 

A sub-roiina e iguai a apresentada no 
artigo anterior, com uma diferen^a: os 
nibbles sao armazenados de quatro em 
quatro, no conjunto C%, e comprimi- 
dos pelas linhas 760 ou 795. O valor 
32768 e diminuido do byte assim com- 
primido, para que seu conteudo fique 
entre -32768 e 32767. 

Depois de acrescentar o programa 
principal e a rotina de decodificagao ao 
jogo da aventura, execute-o. Apos en- 
trar todas as mensagens, grave o progra- 
ma e OS dados juntos, em fita. 



OESCOMPRESSAO 



A descompressao do texto i feita por 
Jma segunda rotina, que deve ser acres- 
centada ao programa de aventura; 



895 Ct(3)-C2 AND 15:Ct(4)-(C2 

AND 240) /16 

900 FOB L-I TO 4 

910 IF Cl{L)-0 THEN K-K+1:G0T0 

930 
920 PRINT MIDS(KS(K).Cl(L).l) i: 
K-1 

930 NEXT L:NEXT J 
950 PRINT: RETURN 

Complete o programa com a rotina 
de carregamento dos conjuntos A e T, 
com OS dados no arquivo seqiiencial: 

Ei 

500 HEK - ROTINA DE LEITURA 

510 INPUT "NOME tX> ARQUIVO" ;NS 

520 OPEN ■I' ,|-1.NS 

530 INPUT|-1,NL,NC 

540 FOR I-l TO NL+1:INPUT#-1.AI 

(I> :NEXT I 

550 FOR I-l TO NC:INPUTt-l,TtCI 

) :NEXT I 

560 CLOSE»-I: RETURN 



500 REM - ROTINA DE LEITURA 

510 INPUT -GRAUADOR PRONTO " ;HS 

530 INPUTI-l.NL.NC 

540 FOR I-l TO NL-t-l:INPUT|-l.At 

(1) :NEXT I 

550 FOR I-l TO NC:INPUT#-1,T»CI 
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500 REM - ROTItIA DE LEITURA 

510 INPUT "NOME DO ARijUIVO" ; N$ 

520 OPEN "CAS:"+N5 FOR INPUT AS 

II 

530 INPUT#1,NL,NC 

540 FOR I-l TO NL+l:INPUTil,At 

(I) :NEXT I 

550 FOR I»l TO NC:INPUTIl,Tt(I 

) :NEXT I 

560 CLOSE! 1: RETURN 



HIE] 



500 HEM - BOTINA DE LEITURA 
510 INPUT -GRAVADOR PRONTO ' ; NS 
530 RECALL NJ:RECALL A*: RECALL 
Tt:NL-Nt (1) :NC-N»(2) 
560 RETURN 

Apresemamos a seguir um pequeno 
programa de teste. Com ele, voce tera 
oportunidade de verificar o funciona- 
mento conjunto das rotinas de leitura e 
de descompressao: 



EiD[l][M]rK^ 

10 DIM KS(3) ,Ti(450) ,AI(46) 

20 K$C1)-" AE0SRDCNTUIMVL":KS(2 

)-"PHGQBFJ, . !-?XZ[- :KS(J)-')/* 

30 GOSUB 510 

240 PRINT: INPUT "NUMEHO DA MENS 

AGEM ";I 

242 IF I-O THEN GOTO 300 

245 IF Kl OR I>NL THEN PRINT " 

*** NAO EXISTE" :GOT0 240 

250 GOSUB 870 

290 GOTO 240 

300 END 



As linhas 10, 20 e 30 desse programa 
devem ser colocadas no inicio do pro- 
grama do jogo. Elas dimenstonam os 
conjuntos de trabalho do descompres- 
sor de textos echamam a rotlna 510. Es- 
ta carrega os conjuntos T e A, a partir 
do texlo comprtmido que esta armaze- 
nado na memoria auxiliar. 




As iinhas 240 a 300 simplesmente im- 
primem a mensagem solicitada pelo 
usudrio e mostram como a sub-rotina 
870 (de decodificagao) deve ser usada 
dentro do programa de aventura. 



COMO ADAPTAR PROGRAMA 



Carregue de novo o programa de 
aventura e localize as linhas que contem 
mensagens incluidas na lista de compres- 
sao. Suponhamos que voce encontre a 
seguinie linha {abreviada, como reco- 
mendamos no comefo deste artigo): 

345 PRINT "TIJOLO PESADO" 

Substitua-a por: 
345 LET I-17:GOSUB 870 

Essa linha iguala o apontador I ao 
numero da mensagem na lista compri- 
mida, e passa o controle para a sub- 
rotina de descompressao. Esta locaiiza 
o inicio e o fim da mensagem, no con- 
junto de aponladores A, e imprime na 
tela o lexto descomprimido. 

Repita esse procedimenio com todas 
as linhas onde ocorrem mensagens, e 
grave o resultado final. Nao se esqueca 
de adicionar as linhas 10, 20 c 30 do nos- 
so exemplo (renumeradas, se for o caso). 



Para o Spectrum, o esquema e um 
pouco dif'erente. Carregue o programa 
de aventura que gravou cm fita, junta- 
mente com o programa de compressao 
e o lexto comprimido. Apague as linhas 
190 a 796 e modifique cada uma das li- 
nhas com mensagens, como foi explica- 
do antes. Em seguida, acrescente: 

860 HEM - DECODIFICACAO 

870 LET n-0:LET k^l 

975 FOR J = aU) TO a(l + l) -1 

880 LET c2-INT( (t (j)+3276a)/256 

:LET cl={t(j)4'32768) €2*256 

690 LET c(l)-cl AND 15:LET c{2) 

-(cl AND 2401/16 

695 LET c:3)=c2 AND 15:LET c(4) 

-(c2 AND 240) /16 

900 FOR L-1 TO 4 

910 IF ctL)=0 THEN LET K=k+1:G 

OTO 930 

920 PRINT K$<K.c(L) ) ; :LET k=l 

930 NEXT LrNEXT j 

960 PRINT; RETURN 

Armazene a nova versao em fita. Pa- 
ra rodar o programa completo, use um 
GOTO para a primeira linha do progra- 
ma de aventura (nao a linha 10 do pro- 
grama de codificagao). Nunca empregue 
o comando RUN, pois voce perdera to- 
do o texto das mensagens. 



FMGRAMACAO 
PASCAL 




Para quem esta familiarizado com 
apenas uma linguagem de programacao, 
o aprendizado de ouira pode apresen- 
lar maior ou mcnor dificuldade — o que 
depende, sobretudo, do grau de seme- 
Ihanga entre as duas lingiiagens. 

Sc a estrutura e sintaxe de ambas To- 
rem parecidas, basta fazer uma tradii- 
tao: novo "vocabulario" d aprendi- 
do, e as regras de formafao de instru- 
coes sao aplicadas da mesnia maneira. 
As vezes. porem, a dit'erenga entre as 
tinguagens e tao grande, que o apretidiz 
se ve fori;ado a abrir mao das regras que 
conhcce e adotar um outro raciocinio. 

A linguagem LOGO, por exemplo, 
examinada em artigos anteriores, foi 
projetada para facilitar ao maximo a in- 
troduvao de iniciantes ao mundo da pro- 
grama(;ao. Eniretanto, para quem foi 
"criado" em BASIC — como a maio- 
ria dos usuarios de micros pessoais — , 
a adaptaijao pode apresentar problemas. 
Algumas vezes, chega a ser dificil acei- 
tar as afirmativas de que LOGO Toi t'ei- 
to para principiantes! 

Isso ocorre, fundamentalmente, por- 
que o LOGO tem uma estrutura inter- 
na bastante diferenie da do BASIC, em- 
bora seu vocabulario seja mais simples. 
LOGO e uma linguagem mais bem es- 
truturada, e trabalha eom listas hierar- 
quicas, como o LISP. Essas caractcris- 
ticas estimulam o programador inician- 
te a adotar padroes estruturados de ra- 
ciocinio e de resolugao de problemas. 



A programagao estruturada tambem 
e um aspecto importante de uma lingua- 
gem imperativa, o Pascal. Como vimos 
no artigo da pagina 1288, ele fa? parte 
da familia de linguagens algon'tmicas e 
declarativas iniciadas com o ALGOL. 
Sua filosofia pode parecer totalmente 
estranha ao programador BASIC. Ain- 
da que experiente, este esta acostuma- 
do a elaborar programas no teclado, tes- 
lando e alterando se^oes a medida que 
progride, ate chegar a um resultado que, 
muitas vezes, evidencia um objetivo nao 
muito claro no comego do trabalho. O 
Pascal so Ihe parecer^ menos complica- 
do se ele tiver desenvolvido habitos de 
programai;ao estruturada — em BASIC 
ou outra linguagem. 

Por que entao dar-se ao trabalho de 
aprender Pascal? Alem de permitir a ela- 
bora<;ao de programas mai.s bem estru- 
turados e de simpUricar a documenta- 
pao e a execuijao de testes, essa lingua- 
gem apresenta cenas vantagens sobre o 
BASIC. Em programas muito comple- 
xos, Pascal produz um c6digo niais 
claro e curto. A facilidade em det'inir 
procedimcnios possibilita a programa- 
cao modular e a forma(;ao de bibliote- 
cas de procedimentos, que podem ser 
aproveitados integralmente em outros 
programas. Finalmente, as versoes mo- 
dernas do Pascal sao adequadas tanto 
para programagao cientifica {calculos 
matematicos) quanto para o descnvol- 
vimemo de apl)ca?oes comerciais. 



Muttos consideram o Pascal como a 
melhor alternativa para o BASIC. 
Com seus poderosos recursos, podem-se 
elaborar programas bem estruturados 
e faceis de documentar e testar. 




FUNDAMENTOS DO PASCAL 



O Pascal foi criado em 1970 pelo pro- 
lessor Niklaus Winh, do Instituto Fe- 
deral de Tecnologia em Zurique, Sui^a. 
Seu nome e uma homeiiagem a BSaise 
Pascal, filosoTo e matemiitico do secu- 
lo XVII, responsavel por importantcs 
descoberta.'s cientificas e inventor de uma 
das primeiras maquinas de calcutar me- 
canicas. a Pascalinu. 

O objetivo de Wirth era desenvolver 
uma linguagem destinada a ensinar os 
conceitos fundamentals de estruturas de 
programa«;ao. Essa linguagem deveria 
estimular o CLSiudanie a elaborar a estru- 
tura do programa antes dc comet;ar a 
escreve-lo. Nela Wjrlh iiitroduziu uma 
serie de recursos a flm de permitir que 
a solucao programada conteitha a pro- 
pria informai^ao a ser processada. 

Em outras palavras, para se escrever 
um programa em Pascal e neccssario 
planejar como rcsolver o problema. A 
solu<;ao escolhida e refinada sucessiva- 
mente, cobrindo detalhes cada vez me- 
nores, ate se alcant^ar o nivel de um pro- 
cedimenio {unidade algoritmica}. So se 
trabalha no programa principal depois 
que todos OS procedimentos necessarios 
estiverem programados. 

Para desenvolver o Pascal, Wirlh uti- 
lizou muitas das ideias em que sc baseia 
o ALGOL 606. Originalmente orienta- 
do para o eiisino de linguagens estrutu- 
radas cm computadores de grande par- 
te, o PASCAL foi adaptado para uso em 
microcomputadores. Hoje, e extensa- 
inente empregado tanto no etisino quan- 
to em ap!icat;6es comerciais em micros. 



PASCAL PARA MICROS 



Existem versoes do Pascal para diver- 
sas linhas de micros pes.soais e profissjo- 
nais. As versoes reduzidas (que nao tem 
todos OS comandos do Pascal padroni- 
zado), chamadas Tiny-Pascal, podem 
ser carregadas de fita cassete. Porem, o 
Pascal e mais eficienie quando usado 
com sistemas baseados em disco, como 
o UCSD Pascal, para o .'Vpple. 

Como sao muitas as versoes comer- 
ciais dessa linguagem, nao fomeceremos 
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listagens especificas para cada linha dc 
microcomputador — como fizemos pa- 
ra BASIC e o LOGO. Mas, mesmo 
que nao tenha um compilador Pascal, 
nao se preocupe: voce podera eniendcr 
OS elementos bdsicos da linguagem. sem 
precisar rodar o programa em um com- 
puiador. Afinal, o desenvolvimento de 
programas longe da maquina e uma da.s 
principais caracterislicas do Pascal. 

Existe outra diferengia fundamental 
entre o BASIC usado em microcompu- 
tadores pcssoais e o Pascal: de e uma 
linguagem compilada. 

O BASIC adotado na maioria dos 
micros e uma linguagem interpretada — 
cada vez que o interpretador encontra 
uma instrugao em BASIC, converte-a 
para codifos de maquina e a executa. 
Assim, para um ia(;o simples como: 



iO FOR N-l TO 
2U PRINT N 
30 NEXT. N 



100 



cada declara^ao nas linhas 10 a 30 sera 
iraduzida cem vez:es para codigo de ma- 
quina! Nao surpreende, portanto, que 
o BASIC seja considerado uma lingua- 
gem lenta. Ouira desvantagem e que o 
interpretador precisa permanccer na me- 
moria o tempo todo, ocupando um es- 
pa(;o valioso, que poderia ser utilizado 
pelD programa ou dados do ususirio. 

Uma linguagem compilada funciona 
dc maneira diferente. Uma vez que se te- 
nha entrado o programa na maquina, na 
forma de um texto (o prog fama-f ante), 
ele e tradu?Jdo de uma vez so para co- 
digo de maquina (o programa-objefo), 
e e este que o computador executa. De- 
pois de feita a tradugao, o programa 
compilador nao e mais necessario, fican- 
do armazenado em fita ou disco. Em 
conseqiiencia, mais cspaco na memoria 
e liberado para uso do programa apli- 
cativo desenvolvido pelo usuario, 

As tinguagens compiladas sao muito 
mais rapidas que as interpretadas, pois 
o demorado processo de traducao para 
codigo de maquina e executado apena.s 
uma vez. Embora existam compiladores 
para o BASIC, essa linguagem nao foi 
projetada para ser compilada; assim, 
seus programas-objeio sao longos e, fre- 
qiientemente, tao lentos quanto o 




programa-fonte. O Pascal, ao contrario, 
foi projctado especificamente para ser 
compilado, permitindo a obten«;ao de 
programas tao compactos e rapidos 
quanto os escritos diretamente em As- 
sembler, E ha uma vantagem adicional: 
e mais simples desenvolver um progra- 
ma em Pascal do que em Assembler. 
O Pascal aprescnta, portanto, um 
equiiibrio bcm sa^isfatorio entre veloci- 
dade de desenvolvimento e de execui^ao. 
Somente o C, uma linguagem semelhan- 
te a ele em estrutura e filosofia, apre- 
senta maior eficiencia. 



PROJETO ALGORiTMiCO 



Como vimos, a programafao em 
Pa.scal requer uma fa.se inicial de proje- 
to, antes de se chegar a maquina. Nessa 
fase, utilizam-se certas ferramentas de 
planejamento que ainda nao discutimos 
em INPUT, entre as quais o ITuxogra- 
ma. Este deve ser usado com cautela, 
pois, em si, nao e estruturado. Uma fer- 
ramenta mais conveniente para o pro- 
jeto de programas e o algoritmo: um de- 



talhamento passo a pa.";so do metodo a 
ser empregado na sokiijao do problema. 

Um exempio familiar de um algoril- 
mo e a receita culinaria: eia coniem to- 
da a informai^ao necessaria para repro- 
duzir um certo prato. Um programa fi- 
nalizado lem, igualmente, toda a infor- 
ma«;ao de que o computador precisa pa- 
ra resoJver um problema ou realizar uma 
tarefa de um determinado modo. 

Entrctanto, o programador (ou o co- 
zinheiro), quando come(;a a escrever um 
programa (ou a receita), nao tem uma 
ideia bent definida sobre o procedimen- 
to a seguir para chegar ao objetivo de- 
sejado. Como exempio, vamos anaiisar 
o processo de eiabora^ao de uma receita 
de torta. Em uma primeira tentativa, 
podert'amos dividir a tarefa (ou algorit- 
mo inicial) em quatro passes: 

1. Preparar a massa 

2. Preparar o recheio 

3. Colocar tudo numa forma 

4. Assar a torta 

Ao fazer uma torta, talvez voce nao 
precise cumprir todos os passos {e pos- 
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sivel comprar a massa proma. por exem- 
plol). Suponhamos, porem, que o com- 
putador e um "cozinheiro amador", 
que deve conheter cada detalhe. 

A pr6xima etapa consiste em fazer a 
subdivisao dos passes em opera(;6es me- 
nores — processo denominado refina- 
memo gradafivo. Voce encontrari esse 
conceito na metodologia de desenvolvi- 
memo de programas muito extensos, 
que nao podem ser proietados de uma 
so vez. No nosso exemplo, refinando o 
passo I, teriamos: 

1.1 - Pesar a farinha 

1.2- Pesar a manteiga 

1 .3 - Misturar a manteiga com a farinha 

1.4- Adicionar agua 

1.5- Mexer 

Poderiamos refinar ainda mais cada 
passo, ate chegarmos a um nfvel de sim- 
plicidade tal que fosse possivel a qual- 
quer um fa^er uma lorta. 

O principal, nesse processo, foi ter- 
mos considerado previamente todos os 
passes da solu(;ao do problema, em vez 
de iniciarmos a larefa em um ponto 
quaiquer, ao acaso. Para a progrartia- 
i;ao em Pascal, o metodo a ser .seguido 
e muito similar. No estagio inicial, es- 
creve-se cada passo em portugues mes- 
mo. Refinando-os sucessivamenie, che- 
ga-,se a formaliza(;ao proporcionada por 
uma declarat;ao ou instru^;ao em Pascal. 
Separados do algoritmo inicial, os pas- 
ses podem ser representados por proce- 
dimentos ou fungocs- Estes sao poste- 
riormente reunidos em um programs 
so. Mas como escrever um programa 
em Pascal sem conhecer os comandos 
dessa linguagem? Examinemos alguns 
exemplos. 



UM PROGRAMA EM PASCAL 



Os programas em Pascal costumam 
parecer complicados demais em relagao 
a simplicidade da tarera a cumprir. Ve- 
ja, por exempio, este programa, que so- 
ma dois numeros e exibe o resultado: 

pi-ograni exemplo ( input , output) ; 
vai- nl . n2 , reaul tadcj; integer ; 
begin 

read (ni ,nZ) ; 

resul tado ; =nl-t-n2 ; 

writeln (reaultado) 
erd . 

Como se podc notar, o programa e 
mais longo que um equivalente em BA- 
SIC, embora de execu(;ao mais rapida, 
Quanto maior a complexidade da larefa, 
porem, maiores a economia e concisao 
oferecidas por um programa em Pascal. 



O programa anterior poderia resul- 
tar de um algoritmo inicial como: 

1 . Estabclega as condigoes iniciais 

2. Inicie o procedimento 

3. Entre os numeros 

4. Acrescente os numeros 

5. Imprima o resultado 

6. Termine o procedimento 

O programa segue rigorosamente o 
algoritmo. Observe que e necessario de- 
clarer explicitamente os passos 1 , 2 e 6 
— ou seja, precisamos especificar o que 
e irabalhado pelo programa. quando 
inicia-lo e quando encerra-lo, 

Este e um dos falores que explicam 
a maior extensao de um programa escri-. 
to em Pascal em reIa?ao a um equiva- 
lente em BASIC. Vamos agora analisar 
o programa linha por linha: 

picjafam exemplo ( input , output) ; 

significa que o programa tera cntradas 
(input) e saidas (output) e se chamara 
cvemplo. Se ete nao preci.sasse ler dados 
externos, bastaria escrever: 

pt oqrain exemplo (output) ; 

O ponto e virgula no final de uma li- 
nha indica o fim de uma declaratao. 

As caracteristicas de todas as varia- 
veis usadas por um programa ern Pas- 
cal devem ser especificadas. A linha: 

var 111 , n2 . resul tado : integer ; 

informa que usaremos tres variaveis in- 
teiras (integer): nl, n2 e resultado. 

Fcitas as declarafoes, assinalamos o 
inicio do procedimento propriamentc di- 
to, com a palavra begin. Note agora que 
o texto do programa e recuado em rela- 
vao a linha anterior. Estc e um recurso 
muito usado em programas cstrutura- 
dos, pois indica para quern le quais sao 
as dcclara^oes dentro de um procedi- 
mento ou lavo dc repetivao, 

A leitura dos dados pelo teclado e 
muito semelhante a do BASIC: read 
(nl ,n2). S6 podemos usar aqui esses no- 
mes de variaveis porque elas foram de- 
claradas antes, em var. 

A declara^ao aritmetica tambem e se- 
melhante a uma instru^-ao em BASIC; 
resultado: =nl+n2; 

O simbolo de atribuiqiao : = foi as- 
sim definido para evjtar a confusao cau- 
sada pelo = do FORTRAN e do BA- 
SIC, que da a impressao erronea de se 
tratar de uma formula matem^tica. 

Finalmente, escrcvemos o resultado: 

writeln (reaultado) 

que tern um efeito semelhante ao 



PRINT RESULTADO de um programa 
em BASIC. Nao ha ponto e virgula no 
final da linha, pois a declaracao seguinie 
e um end. Alguns compiiadores permi- 
tern o uso desse sinal desde que se colo- 
que uma linha em branco depois. 

O Pascal conta, naiuralmente, com 
varios outros comandos e fun^oes, ad- 
mitindo tambem a introducao de notas 
e comentdrios no programa. entre cha- 
vesr iej. Com os microcomputadores que 
nao tern essas teclas, pode-.^ic utilizar 
uma combinacao de parenlcses com as- 
leriscos (* e *). 



EOICAO DO PROGRAMA 



O processo de edipao e teste de pro- 
gramas em linguagem compilada, como 
o Pascal, nao e tao direto como com um 
interpretador. Normalmente, edita-se 
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apenas o program a-fonte, com o auxi- 
lio de urn editor de linhas (quase sem- 
pre dispom'vel como urn utilitario do sis- 
tema operacionai) ou de um processa- 
dor de textos. Depois, compila-se o pro- 
grama e testa-se o resultado, executan- 
do-o. Caso se verifique algum erro, to- 
do o processo deve ser repetido, a par- 
tir do programa-fonte. 

A!guns compiladores Pascal, como o 
UCSD e o Turbo-Pascal, dispoem de 
um editor proprio, o que evita esse vai- 
vem entre editor, sisiema operacionai e 
compiiador. Nesse caso, lanto o progra- 
ma-fonte quanto o programa-objeto po- 
dem residir na RAM enquanto durar o 
processo, agilizando-o muito — se o 
programa nao for muito longo, e se 
iiouver boa capacidade de memoria. 

Como esia em iinguagem de maqui- 
na pura, sem comentarios, r6tulos, ou 
similares, o programa compilado ofere- 



ce a vantagem final de inviabilizar a 
a<;ao de "espioes". Assim, depois de 
editar um programa em Pascal, voce po- 
dera ter a certeza de que ninguem copia- 
ri. OS algoritmos de sua cna<;ao. 



PROGRAMAS DISPOMIVEIS 



Existem compiladort"! Pascal para a 
maioria das linhas de microcomputado- 
res. Entrctanto, como ja mcncionamos, 
eles variam muiio entre si, quanto aa 
funcionamento e desempenho, e ncm to- 
dos podem ser encontrados com facJli- 
dade no Brasil. Antes dc adquirir um 
programa dcsse tipo, coiivem fazcr uma 
pesquisa em diferentes "soriware hou- 
ses" — de preferertcia nas especializa- 
das em uma deierminada iinha de com- 
piitadores ou nas dedicadas exclusiva- 
mente a programa<;ao Pascal. 




O uso mais serio do Pascal requcr 
componentes mais caros, exigindo, no 
minimo, um acionador de disquetes. Pot 
isso, maquinas como o Apple e a IBM- 
PC contam com as meihores versoes. 



O compiiador Pascal para o Spec- 
trum e exclusive para microdrives e dis- 
quetes (nao disponiveis no Brasi!)- In- 
clui um editor de Jiuhas, um gerador de 
niimeros aleatorios e suporte grafico em 
alta rcsolut^ao. 
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Existem diversas versoes do Pascal 
para o TRS-Color. Suas caracteristicas 
variam conforme o sistema operacionai 
utilizado: Flex, RS-DOS (original) ou 
OS-9 (semelhante ao Unix). Todas fun- 
cionam somentc em micros dotados de 
acionadores de disquetes. 



a 

Esse micro dispoe de duas versoes do 
Pascal: um compiiador que roda sob o 
sistema operacionai TRSDOS e compa- 
tiveis, e outro, semelhante ao Turbo 
Pascal, que roda sob o sistema opera- 
cionai CP/M. Amba.s sao bastante com- 
pletas, mas nao incluem suporte grafico. 
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As duas versoes mais utilizadas de 
Pascal para as maquinas compatfveis 
com a Iinha Apple sao o UCSD e o 
Turbo-Pascal. O UCSD (abreviatura da 
universidade onde f'oi desenvolvida: 
University of California at San Diego) 
foi o primeiro e mais popular sistema 
Pascal (p-System). Trata-se, na realida- 
de, de um sistema operacionai comple- 
te, que subsiitui o DOS, e nao apenas 
de um compiiador. 

Ja o Turbo-Pa.scal roda sob o sistema 
operacionai CP/M (Control Program for 
Microcomputers), que pode ser coloca- 
do em um Apple quando se troca a UCP 
por um microprocessador Z-80. 



ffH 



O Pascal para o MSX e do tipo Mi- 
crosoft e destina-.se a maquinas dotadas 
de acionador de disquetes de 5.25 ou 3.5 
polegadas, rodando sob o .sistema ope- 
racionai MSX-DOS ou compativel. 



DE VALOIR 




PRINT USING 



VALORES MONETARIOS 



FORMATACAO 




COM PARENTESES 



Se voce tern problemas com a formatacao 
de saida para valores monetarios, 
podera encontrar aqui uma boa solucao: 
uso de duas eficientes rotinas 
no lugar do comando PRINT USING. 



Ocomando PRINT USING e urn dos 
recursos mais poderosos do BASIC de 
al^umas linhas de computadorcs, como 
o TRS-SO. o TRS-Color e o MSX. Com 
ele, podemos formatar de diferentes ma- 
nciras a saida de niimeros e cadeias at- 
taniimericas. Porem, esse comando apre- 
senta inL'onvenientes, sohretudo quanto 
a foimatafao de valores monetarios. 

No Brasi!. usam-se variaveis de pre- 
cisao dupla (quinzc digitos) para repre- 
sentar valores monetarios, pois a preci- 
sao simples nao nos permite lidar com 
vaiores superiores a 10 milhoes de eru- 
zados. E o PRl.NT USING, infelizmcn- 
te, e muito lento quando s€ trata de for- 
matar variaveis de precisao dupia, 

Alem disso, nao e possivel utilizar o 
PRINT USING dos computadorcs men- 
cionados para formatar valores mone- 
tarios segundo a convengao brasileira, 
que impoe a separa^;ao dos milhares por 
pontos e dos centavos por virgulas. 

As funcoes que explicamos neste ar- 
tigo oferecem varias aiternativas para a 
formatacao de valores, e sao muito mais 
rapidas (tres a seis vezes) do que o 
PRINT USING normal. 



FORMATACAO COM PARENTESES 
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UMA RQTINA PODEROSA 



Esta rotina permite a formaiagao de 
valores monetarios segundo as conven- 
foes dos balan^-os contabeis: com os nii- 
meros negativos entr^ parenteses: 



10 DEF FNNS(V»,E*)=RIGHTS tSTRIN 
G$ CEt," ■•)+LEFTSC C'.ABS (VtCOJ ) 
+LEFTS{" ",ABSCVt>-0) )+MIDSCSTH 
S(V#) ,2) ,Et)+LEFTS('')".ABaCVI<0 
J)+LEFTS<" " .ABS CUt">0} ) 
100 INPUT "Numero de colunas "; 



110 INPUT "Valor "iVI 

120 PRINT ENNS(Vi.Et) :GOTO 110 

A fungao FNFS, estabelecida na linha 
10, tern dois argumemos: V#, urn va- 
lor monetario em precisao dupla (podc 
incluir centavos ounao), e E"/o, um va- 
lor inteiro que especifica o numero de 
colunas a usar na formatacao {com jus- 
tifica?ao a direita). As linhas 100 e 120 
formam um lago simples de teste. 

O BASIC das maquinas meneionadas 
e capaz de definir em apenas uma linha 
expressoes de grande complexidade — 
inclusive e.\press6es condiuionais que 
imitam a operafao de um IF... THEN. 
Observe, por exemplo* a expressao: 

LEFTSC t".ABl>CV»<(})) 

Rode parecer esiranho utilizar um ope- 
rador de comparagao (sinal de menor) 
dentro de uma expressao maiematica. 
Ma.'j podemos compreender sua run!;ao 
sc levarmos em coma que o resultado nu- 
merico dc uma expressao logica e igual 
a -1 (ou 1, em alguns computadores), 
se ela for verdadcira, e a 0, se for falsa. 
Assim, se V # for menor que 0, a ex- 
pressao anterior resuliara em um siring 
contendo um parcmese a esquerda — 
LEPTSC'CM). A linha 10 concatenara es- 
se parentese (se o numero for negativo) 
ou um espav'O em braneo (se o numero 
for positivo) a cadeia de saida. A expres- 
sao LKFT$ (" ". ABS (V # > 0)) se en- 
carrega da opcracao. que depois e repe- 
tida para o parentese direito. 



DINHEIRO A BRASILEIRA 



Examinaremos agora uma fungao ca- 
paz de formatar valores usando pontos 
e virgulas, segundo a convent^^o banca- 
ria brasileira. Simbolos especiais repre- 
sentarao mJmeros positivos (creditos) e 
niimeros negativos (debitos). 

Como essa fungao e mais complexa, 
definiremos uma sub-rotina: 

110 INPUT "Numero de colunae '; 

Et 

120 INPUT "Caractere de preench 

imento " ; BS 

130 INPUT "Simbolo p/valor poai 

tivo ";P5 

140 INPUT "Simbolo p/valor neqa 

tivo " ;NS 



ISO INPUT "Valor - ;V| 

160 GOSUB 1000: PRINT SS:GOTO 15 



1000 l$=MIDS(aTRS(FIX(Vf ) ) .2) :F 

5=MID$tSTRS(lNT[10D*(V|-FIX(VI) 

1010 IF LEN(I$)<=3 AND VAL(FS)> 
THEN SS=IS+SS-t'"."-<-F3:GOT0 103 



1015 IF LENaS)< = 3 AND UAL(FS) = 
THEN SS=IS+SS:GOTO 1030 
1020 SS-". "+RICHT3(I5,3)+S$:I$- 
LEFTS(IS,LEN(IS)-3) :GOTO 1010 
1030 IF y|<0 THEN XS^NS ELSE XS 
= PS 

1040 SS=RIGHT5 (STRINGS (Et.BS}+S 
S-^XSrE*) :EETUHN 

Os argumentos de entrada sao: V # , 
valor monetario em precisao dupla (in- 
cluindo centavos ou nao, apos o porno); 
£%, numero de colunas para formata- 
cao; B$, caractere de preenchimento a 
esquerda (asieriscos, zeros ou um espa- 
V'o em branco); P$ e N$, simbolos a di- 
reita do valor, para indicar creditos e de- 
bitos, respectivamente. O string de sai- 
da rctorna em S$. As linhas 1 10 a 160 
testam a sub-rotina. 

Na linha 1000, V# e quebrado em 
dois valores inteiros. correspondentes 
aos cruzados c aos centavos. Esses va- 
lores sao armazenados em duas cadeias, 
IS e F$, respectivamente. 

As linhas lOlOe 10!5 verificam se IS 
tern tres ou menos digitos (um valor 
igual ou menor que 999 cruzados), e 
.se existe um valor em centavos 
(VAL(F$)>0). Conforme o resultado 
dos dois testes, a rotina termina, saltan- 
do para a linha 1030. que concatena o 
simbolo adequado para creditos e debi- 
tos ao final de SS. A linha 1040 enqua- 
dra o string S$ de saida dentro de E'^a 
espagos. O laco formado pela linha 1020 
reduz progrcssivamenie o tamanho de 
IS, separando cada grupo de tres digi- 
tos por um ponto, ate que LEN(IS) seja 
menor ou igual a 3. 

Entre as aplica(;6es dessa rotina, 
inclui-se o preenchimento de cheques — 
OS caracteres de prote?ao de campo sao 
colocados a esquerda do valor. Se qui- 
ser adicionar um cifrao (ou o simbolo 
C/-$) entre os caracteres de protefao e 
valor numerico, na linha 1000 da ro- 
tina, que inicializa SS, subsiitua a ex- 
pressao S$= " " por SS = "CzS". 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 
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microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 
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.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 
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m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



Di^rio de Anne Frank 
emodonou milhoes. 
E 



erasouma 



parte da 
histork 



A" 



mne Frank e lembrada 
como si'mbolo do 
extermi'nio de milhoes de 
judeus. Seu drama e o de sua 
familia sao vistos agora 
de um angulo diferente, o 
da mulher holandesa que 
ajudou OS Frank durante os 
dois anos que passaram 
escondidos dos nazistas num 
sotao de Amsterda, e que 
se tornou o linico elo entre 
eles e o mundo exterior. 
E com tocante simplicidade 
que esta historia triste 
— o "outro lado" do Didrio 
de Anne Frank — e contada 
neste livro, poderoso 
testemunho da coragem de 
que e capaz o ser humano, 
mesmo nos momentos sombrios 
da Historia. 
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ANNE 
FRANK 

O outro lado do Diario 

MIEP GIES 

E ALISON LESLIE GOLD 

A hist<5ria da mulher que ajudou 
a esconder a familia Frank 
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tAagnificamente escrito por uma pessoa devotada ao ser 
humano. Seu estilo simples cativa o leitor. Um limo recomenddvel 
aos que se preocupam com os rumos do mundo! ' 



Isaac Bashevis Singer, Premio Nobel dc Litcratura de 1978 
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